﻿Public Class ClassColDoc
    'Collection indexée de documents trouves
    Inherits System.Collections.ObjectModel.KeyedCollection(Of String, ClassDocument)

    Protected Overrides Function GetKeyForItem(ByVal item As ClassDocument) As String
        Return item.ID
    End Function

    Friend Overloads Sub add(ByVal Key As String, ByRef Item As ClassDocument)
        If Not Me.Contains(Key) Then
            Me.add(Item)
        End If
    End Sub
End Class
